home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / gnus-cus.el.z / gnus-cus.el
Encoding:
Text File  |  1998-10-28  |  21.0 KB  |  684 lines
  1. ;;; gnus-cus.el --- User friendly customization of Gnus
  2. ;; Copyright (C) 1995,96 Free Software Foundation, Inc.
  3. ;;
  4. ;; Author: Per Abrahamsen <abraham@iesd.auc.dk>
  5. ;; Keywords: help, news
  6. ;; Version: 0.1
  7.  
  8. ;; This file is part of GNU Emacs.
  9.  
  10. ;; GNU Emacs is free software; you can redistribute it and/or modify
  11. ;; it under the terms of the GNU General Public License as published by
  12. ;; the Free Software Foundation; either version 2, or (at your option)
  13. ;; any later version.
  14.  
  15. ;; GNU Emacs is distributed in the hope that it will be useful,
  16. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18. ;; GNU General Public License for more details.
  19.  
  20. ;; You should have received a copy of the GNU General Public License
  21. ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  22. ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  23. ;; Boston, MA 02111-1307, USA.
  24.  
  25. ;;; Commentary:
  26.  
  27. ;;; Code:
  28.  
  29. (require 'custom)
  30. (require 'gnus-ems)
  31. (require 'browse-url)
  32. (eval-when-compile (require 'cl))
  33.  
  34. ;; The following is just helper functions and data, not meant to be set
  35. ;; by the user.
  36. (defun gnus-make-face (color)
  37.   ;; Create entry for face with COLOR.
  38.   (custom-face-lookup color nil nil nil nil nil))
  39.  
  40. (defvar gnus-face-light-name-list
  41.   '("light blue" "light cyan" "light yellow" "light pink"
  42.     "pale green" "beige" "orange" "magenta" "violet" "medium purple"
  43.     "turquoise"))
  44.  
  45. (defvar gnus-face-dark-name-list
  46.   (list
  47.    ;; Not all servers have dark blue in rgb.txt.
  48.    (if (and (eq window-system 'x) (x-color-defined-p "dark blue"))
  49.        "dark blue"
  50.      "royal blue")
  51.    "firebrick" "dark green" "OrangeRed" 
  52.    "dark khaki" "dark violet" "SteelBlue4"))
  53. ; CornflowerBlue SeaGreen OrangeRed SteelBlue4 DeepPink3
  54. ; DarkOlviveGreen4 
  55.  
  56. (custom-declare '()
  57.   '((tag . "Gnus")
  58.     (doc . "\
  59. The coffee-brewing, all singing, all dancing, kitchen sink newsreader.")
  60.     (type . group)
  61.     (data
  62.      ((tag . "Visual")
  63.       (doc . "\
  64. Gnus can be made colorful and fun or grey and dull as you wish.")
  65.       (type . group)
  66.       (data
  67.        ((tag . "Visual")
  68.     (doc . "Enable visual features.
  69. If `visual' is disabled, there will be no menus and few faces.  Most of
  70. the visual customization options below will be ignored.  Gnus will use
  71. less space and be faster as a result.")
  72.     (default . 
  73.       (summary-highlight group-highlight
  74.                  article-highlight 
  75.                  mouse-face
  76.                  summary-menu group-menu article-menu
  77.                  tree-highlight menu highlight
  78.                  browse-menu server-menu
  79.                  page-marker tree-menu binary-menu pick-menu
  80.                  grouplens-menu))
  81.     (name . gnus-visual)
  82.     (type . sexp))
  83.        ((tag . "WWW Browser")
  84.     (doc . "\
  85. WWW Browser to call when clicking on an URL button in the article buffer.
  86.  
  87. You can choose between one of the predefined browsers, or `Other'.")
  88.     (name . browse-url-browser-function)
  89.     (calculate . (cond ((boundp 'browse-url-browser-function)
  90.                 browse-url-browser-function)
  91.                ((fboundp 'w3-fetch) 
  92.                 'w3-fetch)
  93.                ((eq window-system 'x) 
  94.                 'gnus-netscape-open-url)))
  95.     (type . choice)
  96.     (data
  97.      ((tag . "W3")
  98.       (type . const)
  99.       (default . w3-fetch))
  100.      ((tag . "Netscape")
  101.       (type . const)
  102.       (default . browse-url-netscape))
  103.      ((prompt . "Other")
  104.       (doc . "\
  105. You must specify the name of a Lisp function here.  The lisp function
  106. should open a WWW browser when called with an URL (a string).
  107. ")
  108.       (default . __uninitialized__)
  109.       (type . symbol))))
  110.        ((tag . "Mouse Face")
  111.     (doc . "\
  112. Face used for group or summary buffer mouse highlighting.
  113. The line beneath the mouse pointer will be highlighted with this
  114. face.")
  115.     (name . gnus-mouse-face)
  116.     (calculate . (condition-case ()
  117.              (if (gnus-visual-p 'mouse-face 'highlight)
  118.                  (if (boundp 'gnus-mouse-face)
  119.                  gnus-mouse-face
  120.                    'highlight)
  121.                'default)
  122.                (error 'default)))
  123.     (type . face))
  124.        ((tag . "Article Display")
  125.     (doc . "Controls how the article buffer will look.
  126.  
  127. If you leave the list empty, the article will appear exactly as it is
  128. stored on the disk.  The list entries will hide or highlight various
  129. parts of the article, making it easier to find the information you
  130. want.")
  131.     (name . gnus-article-display-hook)
  132.     (type . list)
  133.     (calculate 
  134.      . (if (and (string-match "xemacs" emacs-version)
  135.             (featurep 'xface))
  136.            '(gnus-article-hide-headers-if-wanted
  137.         gnus-article-hide-boring-headers
  138.         gnus-article-treat-overstrike
  139.         gnus-article-maybe-highlight
  140.         gnus-article-display-x-face)
  141.          '(gnus-article-hide-headers-if-wanted
  142.           gnus-article-hide-boring-headers
  143.           gnus-article-treat-overstrike
  144.           gnus-article-maybe-highlight)))
  145.     (data 
  146.      ((type . repeat)
  147.       (header . nil)
  148.       (data
  149.        (tag . "Filter")
  150.        (type . choice)
  151.        (data
  152.         ((tag . "Treat Overstrike")
  153.          (doc . "\
  154. Convert use of overstrike into bold and underline.
  155.  
  156. Two identical letters separated by a backspace are displayed as a
  157. single bold letter, while a letter followed by a backspace and an
  158. underscore will be displayed as a single underlined letter.  This
  159. technique was developed for old line printers (think about it), and is
  160. still in use on some newsgroups, in particular the ClariNet
  161. hierarchy.
  162. ")
  163.          (type . const)
  164.          (default . 
  165.            gnus-article-treat-overstrike))
  166.         ((tag . "Word Wrap")
  167.          (doc . "\
  168. Format too long lines.
  169. ")
  170.          (type . const)
  171.          (default . gnus-article-word-wrap))
  172.         ((tag . "Remove CR")
  173.          (doc . "\
  174. Remove carriage returns from an article.
  175. ")
  176.          (type . const)
  177.          (default . gnus-article-remove-cr))
  178.         ((tag . "Display X-Face")
  179.          (doc . "\
  180. Look for an X-Face header and display it if present.
  181.  
  182. See also `X Face Command' for a definition of the external command
  183. used for decoding and displaying the face.
  184. ")
  185.          (type . const)
  186.          (default . gnus-article-display-x-face))
  187.         ((tag . "Unquote Printable")
  188.          (doc . "\
  189. Transform MIME quoted printable into 8-bit characters.
  190.  
  191. Quoted printable is often seen by strings like `=EF' where you would
  192. expect a non-English letter.
  193. ")
  194.          (type . const)
  195.          (default .
  196.            gnus-article-de-quoted-unreadable))
  197.         ((tag . "Universal Time")
  198.          (doc . "\
  199. Convert date header to universal time.
  200. ")
  201.          (type . const)
  202.          (default . gnus-article-date-ut))
  203.         ((tag . "Local Time")
  204.          (doc . "\
  205. Convert date header to local timezone.
  206. ")
  207.          (type . const)
  208.          (default . gnus-article-date-local))
  209.         ((tag . "Lapsed Time")
  210.          (doc . "\
  211. Replace date header with a header showing the articles age.
  212. ")
  213.          (type . const)
  214.          (default . gnus-article-date-lapsed))
  215.         ((tag . "Highlight")
  216.          (doc . "\
  217. Highlight headers, citations, signature, and buttons.
  218. ")
  219.          (type . const)
  220.          (default . gnus-article-highlight))
  221.         ((tag . "Maybe Highlight")
  222.          (doc . "\
  223. Highlight headers, signature, and buttons if `Visual' is turned on.
  224. ")
  225.          (type . const)
  226.          (default . 
  227.            gnus-article-maybe-highlight))
  228.         ((tag . "Highlight Some")
  229.          (doc . "\
  230. Highlight headers, signature, and buttons.
  231. ")
  232.          (type . const)
  233.          (default . gnus-article-highlight-some))
  234.         ((tag . "Highlight Headers")
  235.          (doc . "\
  236. Highlight headers as specified by `Article Header Highlighting'.
  237. ")
  238.          (type . const)
  239.          (default .
  240.            gnus-article-highlight-headers))
  241.         ((tag . "Highlight Signature")
  242.          (doc . "\
  243. Highlight the signature as specified by `Article Signature Face'.
  244. ")
  245.          (type . const)
  246.          (default .
  247.            gnus-article-highlight-signature))
  248.         ((tag . "Citation")
  249.          (doc . "\
  250. Highlight the citations as specified by `Citation Faces'.
  251. ")
  252.          (type . const)
  253.          (default . 
  254.            gnus-article-highlight-citation))
  255.         ((tag . "Hide")
  256.          (doc . "\
  257. Hide unwanted headers, excess citation, and the signature.
  258. ")
  259.          (type . const)
  260.          (default . gnus-article-hide))
  261.         ((tag . "Hide Headers If Wanted")
  262.          (doc . "\
  263. Hide headers, but allow user to display them with `t' or `v'.
  264. ")
  265.          (type . const)
  266.          (default . 
  267.            gnus-article-hide-headers-if-wanted))
  268.         ((tag . "Hide Headers")
  269.          (doc . "\
  270. Hide unwanted headers and possibly sort them as well.
  271. Most likely you want to use `Hide Headers If Wanted' instead.
  272. ")
  273.          (type . const)
  274.          (default . gnus-article-hide-headers))
  275.         ((tag . "Hide Signature")
  276.          (doc . "\
  277. Hide the signature.
  278. ")
  279.          (type . const)
  280.          (default . gnus-article-hide-signature))
  281.         ((tag . "Hide Excess Citations")
  282.          (doc . "\
  283. Hide excess citation.
  284.  
  285. Excess is defined by `Citation Hide Percentage' and `Citation Hide Absolute'.
  286. ")
  287.          (type . const)
  288.          (default . 
  289.            gnus-article-hide-citation-maybe))
  290.         ((tag . "Hide Citations")
  291.          (doc . "\
  292. Hide all cited text.
  293. ")
  294.          (type . const)
  295.          (default . gnus-article-hide-citation))
  296.         ((tag . "Add Buttons")
  297.          (doc . "\
  298. Make URL's into clickable buttons.
  299. ")
  300.          (type . const)
  301.          (default . gnus-article-add-buttons))
  302.         ((prompt . "Other")
  303.          (doc . "\
  304. Name of Lisp function to call.
  305.  
  306. Push the `Filter' button to select one of the predefined filters.
  307. ")
  308.          (type . symbol)))))))
  309.        ((tag . "Article Button Face")
  310.     (doc . "\
  311. Face used for highlighting buttons in the article buffer.
  312.  
  313. An article button is a piece of text that you can activate by pressing
  314. `RET' or `mouse-2' above it.")
  315.     (name . gnus-article-button-face)
  316.     (default . bold)
  317.     (type . face))
  318.        ((tag . "Article Mouse Face")
  319.     (doc . "\
  320. Face used for mouse highlighting in the article buffer.
  321.  
  322. Article buttons will be displayed in this face when the cursor is
  323. above them.")
  324.     (name . gnus-article-mouse-face)
  325.     (default . highlight)
  326.     (type . face))
  327.        ((tag . "Article Signature Face")
  328.     (doc . "\
  329. Face used for highlighting a signature in the article buffer.")
  330.     (name . gnus-signature-face)
  331.     (default . italic)
  332.     (type . face))
  333.        ((tag . "Article Header Highlighting")
  334.     (doc . "\
  335. Controls highlighting of article header.
  336.  
  337. Below is a list of article header names, and the faces used for
  338. displaying the name and content of the header.  The `Header' field
  339. should contain the name of the header.  The field actually contains a
  340. regular expression that should match the beginning of the header line,
  341. but if you don't know what a regular expression is, just write the
  342. name of the header.  The second field is the `Name' field, which
  343. determines how the the header name (i.e. the part of the header left
  344. of the `:') is displayed.  The third field is the `Content' field,
  345. which determines how the content (i.e. the part of the header right of
  346. the `:') is displayed.  
  347.  
  348. If you leave the last `Header' field in the list empty, the `Name' and
  349. `Content' fields will determine how headers not listed above are
  350. displayed.  
  351.  
  352. If you only want to change the display of the name part for a specific
  353. header, specify `None' in the `Content' field.  Similarly, specify
  354. `None' in the `Name' field if you only want to leave the name part
  355. alone.")
  356.     (name . gnus-header-face-alist)
  357.     (type . list)
  358.     (calculate
  359.      . (cond 
  360.         ((not (eq gnus-display-type 'color))
  361.          '(("" bold italic)))
  362.         ((eq gnus-background-mode 'dark)
  363.          (list 
  364.           (list "From" nil 
  365.             (custom-face-lookup "light blue" nil nil t t nil))
  366.           (list "Subject" nil 
  367.             (custom-face-lookup "pink" nil nil t t nil))
  368.           (list "Newsgroups:.*," nil
  369.             (custom-face-lookup "yellow" nil nil t t nil))
  370.           (list 
  371.            "" 
  372.            (custom-face-lookup "cyan" nil nil t nil nil)
  373.            (custom-face-lookup "forestgreen" nil nil nil t 
  374.                    nil))))
  375.         (t
  376.          (list
  377.           (list "From" nil
  378.             (custom-face-lookup "MidnightBlue" nil nil t t nil))
  379.           (list "Subject" nil 
  380.             (custom-face-lookup "firebrick" nil nil t t nil))
  381.           (list "Newsgroups:.*," nil
  382.             (custom-face-lookup "indianred" nil nil t t nil))
  383.           (list ""
  384.             (custom-face-lookup 
  385.              "DarkGreen" nil nil t nil nil)
  386.             (custom-face-lookup "DarkGreen" nil nil
  387.                     nil t nil))))))
  388.     (data
  389.      ((type . repeat)
  390.       (header . nil)
  391.       (data 
  392.        (type . list)
  393.        (compact . t)
  394.        (data
  395.         ((type . string)
  396.          (prompt . "Header")
  397.          (tag . "Header "))
  398.         "\n            "
  399.         ((type . face)
  400.          (prompt . "Name")
  401.          (tag . "Name   "))
  402.         "\n            "
  403.         ((type . face)
  404.          (tag . "Content"))
  405.         "\n")))))
  406.        ((tag . "Attribution Face")
  407.     (doc . "\
  408. Face used for attribution lines.
  409. It is merged with the face for the cited text belonging to the attribution.")
  410.     (name . gnus-cite-attribution-face)
  411.     (default . underline)
  412.     (type . face))
  413.        ((tag . "Citation Faces")
  414.     (doc . "\
  415. List of faces used for highlighting citations. 
  416.  
  417. When there are citations from multiple articles in the same message,
  418. Gnus will try to give each citation from each article its own face.
  419. This should make it easier to see who wrote what.")
  420.     (name . gnus-cite-face-list)
  421.     (import . gnus-custom-import-cite-face-list)
  422.     (type . list)
  423.     (calculate . (cond ((not (eq gnus-display-type 'color))
  424.                 '(italic))
  425.                ((eq gnus-background-mode 'dark)
  426.                 (mapcar 'gnus-make-face 
  427.                     gnus-face-light-name-list))
  428.                (t 
  429.                 (mapcar 'gnus-make-face 
  430.                     gnus-face-dark-name-list))))
  431.     (data
  432.      ((type . repeat)
  433.       (header . nil)
  434.       (data (type . face)
  435.         (tag . "Face")))))
  436.        ((tag . "Citation Hide Percentage")
  437.     (doc . "\
  438. Only hide excess citation if above this percentage of the body.")
  439.     (name . gnus-cite-hide-percentage)
  440.     (default . 50)
  441.     (type . integer))
  442.        ((tag . "Citation Hide Absolute")
  443.     (doc . "\
  444. Only hide excess citation if above this number of lines in the body.")
  445.     (name . gnus-cite-hide-absolute)
  446.     (default . 10)
  447.     (type . integer))
  448.        ((tag . "Summary Selected Face")
  449.     (doc . "\
  450. Face used for highlighting the current article in the summary buffer.")
  451.     (name . gnus-summary-selected-face)
  452.     (default . underline)
  453.     (type . face))
  454.        ((tag . "Summary Line Highlighting")
  455.     (doc . "\
  456. Controls the highlighting of summary buffer lines. 
  457.  
  458. Below is a list of `Form'/`Face' pairs.  When deciding how a a
  459. particular summary line should be displayed, each form is
  460. evaluated. The content of the face field after the first true form is
  461. used.  You can change how those summary lines are displayed, by
  462. editing the face field.  
  463.  
  464. It is also possible to change and add form fields, but currently that
  465. requires an understanding of Lisp expressions.  Hopefully this will
  466. change in a future release.  For now, you can use the following
  467. variables in the Lisp expression:
  468.  
  469. score:   The article's score
  470. default: The default article score.
  471. below:   The score below which articles are automatically marked as read. 
  472. mark:    The article's mark.")
  473.     (name . gnus-summary-highlight)
  474.     (type . list)
  475.     (calculate 
  476.      . (cond
  477.         ((not (eq gnus-display-type 'color))
  478.          '(((> score default) . bold)
  479.            ((< score default) . italic)))
  480.         ((eq gnus-background-mode 'dark)
  481.          (list
  482.           (cons 
  483.            '(= mark gnus-canceled-mark)
  484.            (custom-face-lookup "yellow" "black" nil
  485.                    nil nil nil))
  486.           (cons '(and (> score default) 
  487.               (or (= mark gnus-dormant-mark)
  488.                   (= mark gnus-ticked-mark)))
  489.             (custom-face-lookup 
  490.              "pink" nil nil t nil nil))
  491.           (cons '(and (< score default) 
  492.               (or (= mark gnus-dormant-mark)
  493.                   (= mark gnus-ticked-mark)))
  494.             (custom-face-lookup "pink" nil nil 
  495.                     nil t nil))
  496.           (cons '(or (= mark gnus-dormant-mark)
  497.              (= mark gnus-ticked-mark))
  498.             (custom-face-lookup 
  499.              "pink" nil nil nil nil nil))
  500.  
  501.           (cons
  502.            '(and (> score default) (= mark gnus-ancient-mark))
  503.            (custom-face-lookup "medium blue" nil nil t
  504.                    nil nil))
  505.           (cons 
  506.            '(and (< score default) (= mark gnus-ancient-mark))
  507.            (custom-face-lookup "SkyBlue" nil nil
  508.                    nil t nil))
  509.           (cons 
  510.            '(= mark gnus-ancient-mark)
  511.            (custom-face-lookup "SkyBlue" nil nil
  512.                    nil nil nil))
  513.           (cons '(and (> score default) (= mark gnus-unread-mark))
  514.             (custom-face-lookup "white" nil nil t
  515.                     nil nil))
  516.           (cons '(and (< score default) (= mark gnus-unread-mark))
  517.             (custom-face-lookup "white" nil nil
  518.                     nil t nil))
  519.           (cons '(= mark gnus-unread-mark)
  520.             (custom-face-lookup
  521.              "white" nil nil nil nil nil))
  522.  
  523.           (cons '(> score default) 'bold)
  524.           (cons '(< score default) 'italic)))
  525.         (t
  526.          (list
  527.           (cons
  528.            '(= mark gnus-canceled-mark)
  529.            (custom-face-lookup
  530.         "yellow" "black" nil nil nil nil))
  531.           (cons '(and (> score default) 
  532.               (or (= mark gnus-dormant-mark)
  533.                   (= mark gnus-ticked-mark)))
  534.             (custom-face-lookup "firebrick" nil nil
  535.                     t nil nil))
  536.           (cons '(and (< score default) 
  537.               (or (= mark gnus-dormant-mark)
  538.                   (= mark gnus-ticked-mark)))
  539.             (custom-face-lookup "firebrick" nil nil
  540.                     nil t nil))
  541.           (cons 
  542.            '(or (= mark gnus-dormant-mark)
  543.             (= mark gnus-ticked-mark))
  544.            (custom-face-lookup 
  545.         "firebrick" nil nil nil nil nil))
  546.  
  547.           (cons '(and (> score default) (= mark gnus-ancient-mark))
  548.             (custom-face-lookup "RoyalBlue" nil nil
  549.                     t nil nil))
  550.           (cons '(and (< score default) (= mark gnus-ancient-mark))
  551.             (custom-face-lookup "RoyalBlue" nil nil
  552.                     nil t nil))
  553.           (cons 
  554.            '(= mark gnus-ancient-mark)
  555.            (custom-face-lookup
  556.         "RoyalBlue" nil nil nil nil nil))
  557.  
  558.           (cons '(and (> score default) (/= mark gnus-unread-mark))
  559.             (custom-face-lookup "DarkGreen" nil nil
  560.                     t nil nil))
  561.           (cons '(and (< score default) (/= mark gnus-unread-mark))
  562.             (custom-face-lookup "DarkGreen" nil nil
  563.                     nil t nil))
  564.           (cons
  565.            '(/= mark gnus-unread-mark)
  566.            (custom-face-lookup "DarkGreen" nil nil 
  567.                    nil nil nil))
  568.  
  569.           (cons '(> score default) 'bold)
  570.           (cons '(< score default) 'italic)))))
  571.     (data
  572.      ((type . repeat)
  573.       (header . nil)
  574.       (data (type . pair)
  575.         (compact . t)
  576.         (data ((type . sexp)
  577.                (width . 60)
  578.                (tag . "Form"))
  579.               "\n            "
  580.               ((type . face)
  581.                (tag . "Face"))
  582.               "\n")))))
  583.  
  584.        ((tag . "Group Line Highlighting")
  585.     (doc . "\
  586. Controls the highlighting of group buffer lines. 
  587.  
  588. Below is a list of `Form'/`Face' pairs.  When deciding how a a
  589. particular group line should be displayed, each form is
  590. evaluated. The content of the face field after the first true form is
  591. used.  You can change how those group lines are displayed by
  592. editing the face field.  
  593.  
  594. It is also possible to change and add form fields, but currently that
  595. requires an understanding of Lisp expressions.  Hopefully this will
  596. change in a future release.  For now, you can use the following
  597. variables in the Lisp expression:
  598.  
  599. group: The name of the group.
  600. unread: The number of unread articles in the group.
  601. method: The select method used.
  602. mailp: Whether it's a mail group or not.
  603. level: The level of the group.
  604. score: The score of the group.
  605. ticked: The number of ticked articles.")
  606.     (name . gnus-group-highlight)
  607.     (type . list)
  608.     (calculate 
  609.      . (cond 
  610.         ((not (eq gnus-display-type 'color))
  611.          '((mailp . bold)
  612.            ((= unread 0) . italic)))
  613.         ((eq gnus-background-mode 'dark)
  614.          `(((and (not mailp) (eq level 1)) .
  615.         ,(custom-face-lookup "PaleTurquoise" nil nil t))
  616.            ((and (not mailp) (eq level 2)) .
  617.         ,(custom-face-lookup "turquoise" nil nil t))
  618.            ((and (not mailp) (eq level 3)) .
  619.         ,(custom-face-lookup "MediumTurquoise" nil nil t))
  620.            ((and (not mailp) (>= level 4)) .
  621.         ,(custom-face-lookup "DarkTurquoise" nil nil t))
  622.            ((and mailp (eq level 1)) .
  623.         ,(custom-face-lookup "aquamarine1" nil nil t))
  624.            ((and mailp (eq level 2)) .
  625.         ,(custom-face-lookup "aquamarine2" nil nil t))
  626.            ((and mailp (eq level 3)) .
  627.         ,(custom-face-lookup "aquamarine3" nil nil t))
  628.            ((and mailp (>= level 4)) .
  629.         ,(custom-face-lookup "aquamarine4" nil nil t))
  630.            ))
  631.         (t
  632.          `(((and (not mailp) (<= level 3)) .
  633.         ,(custom-face-lookup "ForestGreen" nil nil t))
  634.            ((and (not mailp) (eq level 4)) .
  635.         ,(custom-face-lookup "DarkGreen" nil nil t))
  636.            ((and (not mailp) (eq level 5)) .
  637.         ,(custom-face-lookup "CadetBlue4" nil nil t))
  638.            ((and mailp (eq level 1)) .
  639.         ,(custom-face-lookup "DeepPink3" nil nil t))
  640.            ((and mailp (eq level 2)) .
  641.         ,(custom-face-lookup "HotPink3" nil nil t))
  642.            ((and mailp (eq level 3)) .
  643.         ,(custom-face-lookup
  644.           ;; Not all servers have dark magenta in rgb.txt.
  645.           (if (and (eq window-system 'x)
  646.                (x-color-defined-p "dark magenta"))
  647.               "dark magenta"
  648.             "maroon")
  649.           nil nil t))
  650.            ((and mailp (eq level 4)) .
  651.         ,(custom-face-lookup "DeepPink4" nil nil t))
  652.            ((and mailp (> level 4)) .
  653.         ,(custom-face-lookup "DarkOrchid4" nil nil t))
  654.            ))))
  655.     (data
  656.      ((type . repeat)
  657.       (header . nil)
  658.       (data (type . pair)
  659.         (compact . t)
  660.         (data ((type . sexp)
  661.                (width . 60)
  662.                (tag . "Form"))
  663.               "\n            "
  664.               ((type . face)
  665.                (tag . "Face"))
  666.               "\n")))))
  667.  
  668.        ;; Do not define `gnus-button-alist' before we have
  669.        ;; some `complexity' attribute so we can hide it from
  670.        ;; beginners. 
  671.        )))))
  672.  
  673. (defun gnus-custom-import-cite-face-list (custom alist)
  674.   ;; Backward compatible grokking of light and dark.
  675.   (cond ((eq alist 'light)
  676.      (setq alist (mapcar 'gnus-make-face gnus-face-light-name-list)))
  677.     ((eq alist 'dark)
  678.      (setq alist (mapcar 'gnus-make-face gnus-face-dark-name-list))))
  679.   (funcall (custom-super custom 'import) custom alist))
  680.  
  681. (provide 'gnus-cus)
  682.  
  683. ;;; gnus-cus.el ends here
  684.